home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / web / noweb / contrib / partingr / TeXthings < prev    next >
Text File  |  1995-02-24  |  959b  |  53 lines
  1. sub convquotes
  2. {
  3.     local($line)=@_;
  4.     local($pre,$mid,$end,$obrace,$cbrace);
  5.     
  6.     $obrace=index($line,'[[',0);
  7.     while($obrace!=-1)
  8.     {
  9.     $pre=substr($line,0,$obrace);
  10.         $cbrace=index($line,']]',$obrace);
  11.     while(substr($line,$cbrace+2,1) eq ']')
  12.     {   $cbrace++;
  13.     }
  14.     $mid=substr($line,$obrace+2,$cbrace-$obrace-2);
  15.     $end=substr($line,$cbrace+2);
  16.     $line=$pre . "\\code{}" . &TeXliteral($mid) . "\\edoc{}" . $end;
  17.     $obrace=index($line,'[[',0);
  18.     }
  19.     return $line;
  20. }
  21.  
  22. sub escapebslash
  23. {
  24.     local($line)=@_;
  25.  
  26.     $line=~s/([\\\{\}])/\n\1/g;
  27.     $line=~s/\n/\\/g;
  28.     return $line;
  29. }
  30.  
  31. sub TeXliteral
  32. {
  33.     local($_)=@_;
  34.  
  35.     s/\\/<\\char92>/g;
  36.     s/\}/<\\char125}/g;
  37.     s/\{/{\\char123}/g;
  38.     s/<\\char/{\\char/g;
  39.     s/\{\\char92>/{\\char92}/g;
  40.     s/\$/{\\char36}/g;
  41.     s/&/{\\char38}/g;
  42.     s/#/{\\char35}/g;
  43.     s/\^/{\\char94}/g;
  44.     s/_/{\\char95}/g;
  45.     s/%/{\\char37}/g;
  46.     s/~/{\\char126}/g;
  47.     s/ /\\ /g;
  48.     return $_;
  49. }
  50.  
  51. 1;
  52.  
  53.